Setup the fontset "fontset-mac" correctly.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 25c66103dd9c3009ba15a4edcd417b50d8483560..04989999db9a2068ff073aca96b5d555ce147fdf 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -205,10 +205,10 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
         (function
          (lambda (key val)
            (or (generic-char-p key)
-               (memq (char-charset key)
+               (memq (char-charset val)
                      '(ascii eight-bit-control eight-bit-graphic))
-               (set-fontset-font "fontset-mac" key monaco-font))))
-        (get 'mac-roman-encoder 'translation-table)))))
+               (set-fontset-font "fontset-mac" val monaco-font))))
+        (get 'mac-roman-decoder 'translation-table)))))
 
 (if (eq system-type 'darwin)
     ;; On Darwin filenames are encoded in UTF-8